inherited SaleTopicFrame: TSaleTopicFrame
  Width = 225
  Height = 552
  ExplicitWidth = 225
  ExplicitHeight = 552
  object BottomPanel: TPanel
    Left = 0
    Top = 511
    Width = 225
    Height = 41
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 0
    object Label2: TLabel
      Left = 8
      Top = 8
      Width = 59
      Height = 16
      Caption = 'Kassa seis'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = [fsUnderline]
      ParentFont = False
    end
  end
  object Grid: TDBGrid
    AlignWithMargins = True
    Left = 0
    Top = 29
    Width = 225
    Height = 482
    Margins.Left = 0
    Margins.Top = 5
    Margins.Right = 0
    Margins.Bottom = 0
    Align = alClient
    DataSource = Source
    Options = [dgTitles, dgColumnResize, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
    OnCellClick = GridCellClick
    Columns = <
      item
        Expanded = False
        FieldName = 'SYNDM_AEG'
        Width = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SYNDMUS'
        Width = 16
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'KLIENDI_NIMI'
        Visible = True
      end>
  end
  object FilterCombo: TComboBox
    Left = 0
    Top = 0
    Width = 225
    Height = 24
    Align = alTop
    Style = csDropDownList
    ItemHeight = 16
    TabOrder = 2
    OnChange = FilterComboChange
    Items.Strings = (
      'T'#228'nased s'#252'ndmused'
      'Eilsed s'#252'ndmused'
      ''
      'Selle n'#228'dala s'#252'ndmused'
      'Eelmise n'#228'dala s'#252'ndmused'
      ''
      'Selle kuu s'#252'ndmused'
      'Eelmise kuu s'#252'ndmused'
      ''
      'T'#228'itmata tellimused')
  end
  object Query: TSQLDataSet
    SchemaName = 'sysdba'
    GetMetadata = False
    CommandText = 
      'select'#13#10#39'A:'#39' as syndmus,'#13#10'a.arve_aeg as syndm_aeg,'#13#10'a.id as arve' +
      '_id,'#13#10'a.kliendi_id,'#13#10'k.nimi as kliendi_nimi'#13#10'from arved a'#13#10'left ' +
      'join kliendid k on k.id = a.kliendi_id'#13#10'where a.arve_aeg >= :ala' +
      'tes and '#13#10'  a.arve_aeg < :kuni_va'#13#10'union'#13#10'select'#13#10#39'T:'#39' as syndmu' +
      's,'#13#10'a.tellimuse_aeg as syndm_aeg,'#13#10'a.id as arve_id,'#13#10'a.kliendi_i' +
      'd,'#13#10'k.nimi as kliendi_nimi'#13#10'from arved a'#13#10'left join kliendid k o' +
      'n k.id = a.kliendi_id'#13#10'where a.tellimuse_aeg >= :alates and '#13#10'  ' +
      'a.tellimuse_aeg < :kuni_va'#13#10'order by 2 desc'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftUnknown
        Name = 'alates'
        ParamType = ptInput
      end
      item
        DataType = ftUnknown
        Name = 'kuni_va'
        ParamType = ptInput
      end
      item
        DataType = ftUnknown
        Name = 'alates'
        ParamType = ptInput
      end
      item
        DataType = ftUnknown
        Name = 'kuni_va'
        ParamType = ptInput
      end>
    SQLConnection = ProgramModule.Connection
    Left = 136
    Top = 128
  end
  object Provider: TDataSetProvider
    DataSet = Query
    Left = 104
    Top = 128
  end
  object Ds: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftUnknown
        Name = 'alates'
        ParamType = ptInput
      end
      item
        DataType = ftUnknown
        Name = 'kuni_va'
        ParamType = ptInput
      end
      item
        DataType = ftUnknown
        Name = 'alates'
        ParamType = ptInput
      end
      item
        DataType = ftUnknown
        Name = 'kuni_va'
        ParamType = ptInput
      end>
    ProviderName = 'Provider'
    AfterScroll = DsAfterScroll
    Left = 72
    Top = 128
    object DsSYNDMUS: TStringField
      FieldName = 'SYNDMUS'
      Required = True
      FixedChar = True
      Size = 1
    end
    object DsSYNDM_AEG: TSQLTimeStampField
      FieldName = 'SYNDM_AEG'
    end
    object DsKLIENDI_ID: TIntegerField
      FieldName = 'KLIENDI_ID'
    end
    object DsKLIENDI_NIMI: TStringField
      FieldName = 'KLIENDI_NIMI'
      Size = 50
    end
    object DsARVE_ID: TIntegerField
      FieldName = 'ARVE_ID'
      Required = True
    end
  end
  object Source: TDataSource
    DataSet = Ds
    Left = 40
    Top = 128
  end
end
